10 POKE53280,.:POKE53281,0:PRINTCHR$(147):FORC=2TO12:POKE646,C:
20 PRINT"[145][145]                                        ";:
21 PRINT"[206][163][163][163][163][163][163][163][163][163][223][169][205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206][223][169][163][163][163][163][163][163][163][163][163][205]";
22 PRINT"[183][183][183][183][183][183][183][183][183][183][205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206][183][183][183][183][183][183][183][183][183][183]";:
23 PRINT"[169][175][175][175][175][175][175][175][175][175][186]                  [204][175][175][175][175][175][175][175][175][175][223]"; :NEXTC:
30 F=F+4:POKE53281,F/2:PRINT"[145][145]  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] ":IFF=200THENF=0
35 GOSUB200:GOTO40
40 FORP=1024TO2023STEP17*(RND(F)+4)-1:PP=3047-P:IFL=0THENL=99:F=F-2:
45 L=L+1:POKE53281,INT(RND(0)+L)-1
50 FORD=0TO41STEP5:FF=36-D+5:IFL>152THEN100
60 POKEP+54272+ D,F:POKEPP+54272+FF,F+8
61 E=1+1:POKE53281,.:::::::::::::::::::::::::::::::::::POKE53281,PEEK(53281)+E
62 IFE=14THEN70:F=F+E
70 NEXT:NEXT:GOSUB200::GOTO30
100 FORC=2TO22:POKE646,C:PRINT"[147]                  ENDE                  ";:NEXT
101 END
200 S=54272:FORT=0TO3STEP.6:POKES+24,15:POKES+4,129:POKES+1,T+ABS(21-42)
201 POKES+6,248:POKES+4,128:FORI=33TO0STEP-1:POKES+4,I:NEXT:NEXT  : RETURN